home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / progtool / modula2 / hk_lib / def_mod / timer.def < prev    next >
Encoding:
Modula Definition  |  1994-09-22  |  1.7 KB  |  28 lines
  1. DEFINITION MODULE  Timer;
  2.  
  3. (*****************************************************************************)
  4. (* Mit diesen Prozeduren lassen sich innerhalb von Programmen Zeiten messen. *)
  5. (* Die Zeiteinheit ist die Millisekunde, die verwendeten Zeiten sind jedoch  *)
  6. (* immer Vielfache von fuenf Millisekunden; eine einigermassen verlaessliche *)
  7. (* Messung ist daher erst ab ungefaehr 50 ms moeglich ( Fehler < 10% ).      *)
  8. (*                                                                           *)
  9. (* Der mit "Start" in 'startzeit' zurueckgelieferte Wert hat nur interne Be- *)
  10. (* deutung, darf jedoch nicht veraendert werden. Wird er bei Aufruf von      *)
  11. (* "Stop" als Parameter wieder uebergeben, so liefert diese Prozedur die Zeit*)
  12. (* in Millisekunden, die seit dem Aufruf von "Start" mit dieser Variablen    *)
  13. (* vergangen ist; da der uebergebene Wert dabei nicht veraendert wird, kann  *)
  14. (* zu einem spaeteren Zeitpunkt erneut die Zeit ausgelesen werden. Einmal    *)
  15. (* durch "Start" gestartet, laeuft die Stoppuhr also ununterbrochen weiter.  *)
  16. (*                                                                           *)
  17. (* Durch Verwendung unterschiedlicher Variablen fuer 'startzeit' kann eine   *)
  18. (* beliebige Anzahl Stoppuhren parallel laufen.                              *)
  19. (* __________________________________________________________________________*)
  20. (*  03-Mae-90 , Holger Kleinschmidt                                          *)
  21. (*****************************************************************************)
  22.  
  23.   PROCEDURE  Start ((* -- /AUS *) VAR startzeit : LONGCARD );
  24.  
  25.   PROCEDURE  Stop ((* EIN/ -- *) startzeit : LONGCARD ): LONGCARD;
  26.  
  27. END  Timer.
  28.